home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TPW50.LZH / TPDEMO50.PAS next >
Pascal/Delphi Source File  |  1988-01-31  |  7KB  |  228 lines
  1. uses
  2.   crt,
  3.   tpwindo;
  4.  
  5. var
  6.   m,i,j,k,f,b,x:integer;
  7.   msg:string[80];
  8.  
  9. begin
  10.   textmode(1);
  11.   cursorchange(hidecursor,oldcursor);
  12.   randomize;
  13.   TPWborder(1);
  14.   tpwfill(1,1,25,40,' ',attr(7,1));
  15.  
  16.   makewindow(2,5,10,18,attr(0,2),attr(10,2),2,3,1);
  17.   prtcwindow(3,'TURBO');
  18.   delay(2000);
  19.   makewindow(7,12,10,18,attr(15,4),attr(14,4),2,3,1);
  20.   prtcwindow(3,'PASCAL');
  21.   delay(2000);
  22.   makewindow(12,20,10,18,attr(0,3),attr(15,3),2,3,1);
  23.   prtcwindow(3,'WINDOWS');
  24.   delay(4000);
  25.   removewindow;
  26.   delay(1000);
  27.   removewindow;
  28.   delay(1000);
  29.   removewindow;
  30.  
  31.   textmode(3);
  32.   cursorchange(hidecursor,oldcursor);
  33.   tpwborder(1);
  34.   tpwfill(1,1,25,80,' ',attr(7,1));
  35.   makewindow(4,15,10,30,attr(4,3),attr(4,3),4,3,1);
  36.   makewindow(3,36,13,40,attr(15,2),attr(15,2),3,3,1);
  37.   makewindow(9,10,13,40,attr(0,5),attr(0,5),2,3,1);
  38.   makewindow(12,42,11,36,attr(3,4),attr(3,4),1,3,1);
  39.   makewindow(3,5,7,40,attr(0,7),attr(1,7),2,3,1);
  40.   prtcwindow(3,'Presenting...');
  41.   delay(4000);
  42.   makewindow(8,20,7,40,attr(0,7),attr(1,7),2,3,1);
  43.   prtcwindow(1,'T P W I N D O');
  44.   prtcwindow(2,'5.0');
  45.   prtcwindow(4,'Windowing Routines for the');
  46.   prtcwindow(5,'Borland Turbo PASCAL Ver. 4 Compiler');
  47.   delay(3000);
  48.   makewindow(17,55,7,24,attr(0,2),attr(10,2),1,3,1);
  49.   prtwindow(1,2,'By:');
  50.   prtcwindow(3,'Rick Fothergill');
  51.   prtcwindow(4,'141 Oak Hill Road');
  52.   prtcwindow(5,'Pittsfield, MA 01201');
  53.   delay(4000);
  54.   for x := 1 to 7 do
  55.   begin
  56.     removewindow;
  57.   end;
  58.  
  59.   makewindow(9,16,8,52,attr(0,7),attr(1,7),2,0,0);
  60.   prtwindow(1,2,'The basic  purpose of TPWINDO is to provide');
  61.   prtwindow(2,2,'the  fundamental  routines for  implementing');
  62.   prtwindow(3,2,'simple "windowing" into your Turbo PASCAL pro-');
  63.   prtwindow(4,2,'grams.   With  just a few simple statements,');
  64.   prtwindow(5,2,'you can "pop-up"  a colored  window onto the');
  65.   prtwindow(6,2,'screen; just like this ...');
  66.   delay(4000);
  67.   clearwindow;
  68.  
  69.   prtwindow(2,2,'The window can be a solid panel of any of');
  70.   prtwindow(4,2,'the PASCAL background colors; such as ...');
  71.   delay(4000);
  72.   makewindow(10,25,7,35,attr(1,2),attr(2,2),5,0,0);
  73.   delay(3000);
  74.   removewindow;
  75.   clearwindow;
  76.  
  77.   prtwindow(2,2,'or it can be surrounded by a "frame" in any');
  78.   prtwindow(4,2,'of eight styles...');
  79.   delay(3000);
  80.   makewindow(1,1,8,35,attr(0,3),attr(0,3),1,0,0);
  81.   titlewindow(1,attr(10,0),'[ Frame Style 1 ]');
  82.   makewindow(3,3,8,35,attr(14,5),attr(14,5),2,0,0);
  83.   titlewindow(2,attr(10,0),'[ Frame Style 2 ]');
  84.   makewindow(5,5,8,35,attr(15,4),attr(15,4),3,0,0);
  85.   titlewindow(3,attr(10,0),'[ Frame Style 3 ]');
  86.   makewindow(7,7,8,35,attr(0,6),attr(14,6),4,0,0);
  87.   titlewindow(1,attr(10,0),'[ Frame Style 4 ]');
  88.   makewindow(9,9,8,35,attr(0,2),attr(0,2),5,0,0);
  89.   titlewindow(3,attr(10,0),'[ Frame Style 5 ]');
  90.   makewindow(11,11,8,35,attr(0,3),attr(0,3),6,0,0);
  91.   titlewindow(1,attr(10,0),'[ Frame Style 6 ]');
  92.   makewindow(13,13,8,35,attr(14,5),attr(14,5),7,0,0);
  93.   titlewindow(2,attr(10,0),'[ Frame Style 7 ]');
  94.   makewindow(15,15,8,35,attr(15,4),attr(15,4),8,0,0);
  95.   titlewindow(3,attr(10,0),'[ Frame Style 8 ]');
  96.  
  97.   delay(4000);
  98.   for x := 1 to 8 do
  99.   begin
  100.     removewindow;
  101.   end;
  102.   clearwindow;
  103.  
  104.   prtwindow(1,2,'The frame itself can be in any one of the');
  105.   prtwindow(2,2,'PASCAL foreground colors. It can even blink');
  106.   prtwindow(3,2,'if you want...');
  107.   delay(3000);
  108.   for i:=0 to 15 do
  109.   begin
  110.     str(i,msg);
  111.     msg:='[ Color:'+msg+' ]';
  112.     j:=random(50);
  113.     k:=random(16);
  114.     makewindow(k+1,j+1,7,25,attr(i,5),attr(i,5),4,2,0);
  115.     titlewindow(2,attr(i,7),msg);
  116.     delay(500);
  117.   end;
  118.   makewindow(7,20,7,25,attr(31,5),attr(31,5),4,4,0);
  119.   titlewindow(2,attr(31,5),'[ Color: 31 ]');
  120.   delay(3000);
  121.   for x := 1 to 17 do
  122.   begin
  123.     removewindow;
  124.   end;
  125.   clearwindow;
  126.  
  127.   prtcwindow(5,'The window itself can be presented in many');
  128.   prtcwindow(6,'different ways. It can be flat...');
  129.   delay(3000);
  130.   makewindow(5,10,10,30,attr(15,5),attr(14,5),1,0,0);
  131.   makewindow(5,45,10,30,attr(15,5),attr(14,5),1,0,0);
  132.   delay(3000);
  133.   removewindow;
  134.   removewindow;
  135.   clearwindow;
  136.   prtcwindow(4,'it can have one of two types of shadow underneath');
  137.   prtcwindow(6,'this is SOLID black - type 1 left and 2 right');
  138.   delay(3000);
  139.   makewindow(5,10,10,30,attr(15,5),attr(14,5),2,1,0);
  140.   prtcwindow(7,'Left Shadow');
  141.   delay(2000);
  142.   makewindow(5,45,10,30,attr(0,2),attr(0,2),2,2,0);
  143.   prtcwindow(7,'Right Shadow');
  144.   delay(2000);
  145.   removewindow;
  146.   removewindow;
  147.   clearwindow;
  148.   prtcwindow(6,'this is SHADOW black - type 3 left and 4 right');
  149.   delay(3000);
  150.   makewindow(5,10,10,30,attr(15,5),attr(14,5),2,3,0);
  151.   prtcwindow(7,'Left Shadow');
  152.   delay(2000);
  153.   makewindow(5,45,10,30,attr(15,2),attr(0,2),2,4,0);
  154.   prtcwindow(7,'Right Shadow');
  155.   delay(2000);
  156.   removewindow;
  157.   removewindow;
  158.   clearwindow ;
  159.  
  160.   prtcwindow(2,'Titles may be placed in any of six different');
  161.   prtcwindow(3,'locations, in any color or any combinination.');
  162.   delay(2000);
  163.   makewindow(2,5,10,70,attr(15,5),attr(15,5),2,1,0);
  164.   for x:=1 to 6 do
  165.   begin
  166.     str(x,msg);
  167.     msg := '[ LOCATION '+MSG+' ]';
  168.     titlewindow(x,attr(random(16),random(8)),msg);
  169.     delay(1000);
  170.   end;
  171.   delay(3000);
  172.   removewindow;
  173.   clearwindow;
  174.  
  175.   prtcwindow(3,'Windows can be zoomed');
  176.   prtcwindow(4,'onto the screen.');
  177.   delay(2000);
  178.   makewindow(2,2,15,60,attr(0,2),attr(14,2),2,0,1);
  179.   delay(2000);
  180.   makewindow(13,10,10,60,attr(1,3),attr(15,3),3,0,1);
  181.   delay(2000);
  182.   makewindow(7,33,10,45,attr(14,5),attr(14,5),1,0,1);
  183.   delay(2000);
  184.   makewindow(7,10,12,63,attr(15,4),attr(14,4),2,4,1);
  185.   prtcwindow(5,'HOW ABOUT THAT !!!');
  186.   delay(3000);
  187.   for x := 1 to 4 do
  188.   begin
  189.     removewindow;
  190.   end;
  191.   clearwindow;
  192.  
  193.   prtwindow(1,2,'Once you have your window on the screen, simply');
  194.   prtwindow(2,2,'use calls to PrtWindow or PrtCWindow to put text');
  195.   prtwindow(3,2,'in them.  A call to ClearWindow will erase the');
  196.   prtwindow(4,2,'contents of the window ...   ');
  197.   delay(3000);
  198.   clearwindow;
  199.  
  200.   prtwindow(1,2,'Each window is stored as a result of call a');
  201.   prtwindow(2,2,'to MakeWindow.  To restore the screen to its');
  202.   prtwindow(3,2,'original contents, simply RemoveWindow.');
  203.   prtwindow(4,2,'Here is a good example . . .');
  204.   delay(5000);
  205.   makewindow(3,5,15,45,attr(0,2),attr(14,2),4,3,1);
  206.   prtcwindow(6,'This is screen 1 ...');
  207.   delay(2000);
  208.   makewindow(6,29,17,50,attr(15,4),attr(14,4),4,3,1);
  209.   prtcwindow(6,'This is screen 2 ...');
  210.   delay(2000);
  211.   makewindow(9,22,15,35,attr(0,3),attr(1,3),4,3,1);
  212.   prtcwindow(7,'This is screen 3 ...');
  213.   delay(2000);
  214.   prtcwindow(7,'Now we will return ...');
  215.   delay(1000);
  216.   removewindow;
  217.   prtcwindow(7,'Back to screen 2');
  218.   delay(1000);
  219.   removewindow;
  220.   prtcwindow(7,'Back to screen 1');
  221.   delay(1000);
  222.   removewindow;
  223.   removewindow;
  224.   tpwborder(0);
  225.   cursorchange(oldcursor,hidecursor);
  226.   tpwfill(1,1,25,80,' ',attr(7,0));
  227. end.
  228.